home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / dev / amos / AMOS0398.lzh / AMOSLIST / 000058_amos-request@svcs1.digex.net_Thu Mar 5 19:49:28 1998.msg < prev    next >
Text File  |  1998-04-01  |  3KB  |  63 lines
  1. >From amos-request@svcs1.digex.net  Thu Mar  5 19:49:28 1998
  2. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with ESMTP id TAA13294
  4.     for <mcox@access.digex.net>; Thu, 5 Mar 1998 19:49:28 -0500 (EST)
  5. Received: (from daemon@localhost)
  6.     by svcs1.digex.net (8.8.5/8.8.5) id NAA17132
  7.     for amos-out; Thu, 5 Mar 1998 13:53:45 -0500 (EST)
  8. Received: from pony-2.mail.digex.net (pony-2.mail.digex.net [204.91.241.6])
  9.     by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id NAA17129
  10.     for <amos-list@svcs1.digex.net>; Thu, 5 Mar 1998 13:53:44 -0500 (EST)
  11. Received: from mail-in1.inet.tele.dk (mail-in1.inet.tele.dk [194.182.148.158])
  12.     by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id NAA01825
  13.     for <amos-list@access.digex.net>; Thu, 5 Mar 1998 13:53:42 -0500 (EST)
  14. Received: (qmail 3760 invoked from network); 5 Mar 1998 18:53:41 -0000
  15. Received: from post8.tele.dk (194.239.134.172)
  16.   by mail-in1.inet.tele.dk with SMTP; 5 Mar 1998 18:53:41 -0000
  17. Received: from post8.tele.dk ([194.239.180.19]) by post8.tele.dk
  18.           (Netscape Mail Server v2.02) with SMTP id AAB46154
  19.           for <amos-list@access.digex.net>; Thu, 5 Mar 1998 19:53:39 +0100
  20. From: Jens Vang Petersen <top_cat@post8.tele.dk>
  21. To: amos-list@access.digex.net
  22. Date: Thu, 05 Mar 1998 19:51:07 +0100
  23. Message-ID: <yam7368.359.1747497224@post8.tele.dk>
  24. X-Mailer: YAM 2.0.0 Preview [020] - Amiga Mailer by Marcel Beck - http://www.yam.ch
  25. Subject: A small Hint..
  26. MIME-Version: 1.0
  27. Content-Type: text/plain
  28. Status: O
  29. X-Status: 
  30.  
  31. Hello,
  32.  
  33. Here's a little trick I found the other day, hope somebody can use it..
  34.  
  35. To store an integer-array you would normaly open a sequentiel file and dump
  36. the data with a loop.. Well try this instead:
  37. MX=50
  38. Dim A(MX)
  39. -
  40. Bsave FILE$,Varptr(A(0)) To Varptr(A(0))+(MX+1)*4
  41.  
  42. And to reload:
  43. Bload FILE$,Varptr(A(0))
  44.  
  45. You can simply replace Bsave with Ssave if you'd like to have more than one
  46. Array in a file. Or use Copy to put in a bank :)
  47.  
  48. -- 
  49. Kind regards from
  50. ______________________________________________________________________________
  51.  /_  __/ __  / __  /\  ___\  __ \__  _\               aka. JENS VANG PETERSEN
  52.   / / / /_/ / ____/  \ \___\  __ \ \ \                  top_cat@post8.tele.dk
  53.  /_/ /_____/_/        \_____\_\ \_\ \_\
  54. ------------------------------------------------------------------------------
  55.                     http://home8.inet.tele.dk/top_cat/
  56.   -+-    Home of 'The Ultimate Extension list' for AMOS TC & AMOS PRO    -+-
  57.                  -+-  SUPPORT - AMOS - AMIGA - AQUA  -+-
  58. ------------------------------------------------------------------------------
  59.  It is better to have tried and failed than to have  failed  to  try, but the
  60.  result's the same.
  61.                                                              -- Mike Dennison
  62. ------------------------------------------------------------------------------
  63.